home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / SAT / SATminimal ƒ / sMySprite.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-09-21  |  860 b   |  50 lines  |  [TEXT/KAHL]
  1. #include "SAT.h"
  2.  
  3.     Handle    theSound;
  4.     FacePtr    faces[6];
  5.  
  6. /*    procedure InitMySprite;
  7.     procedure SetupMySprite (me: SpritePtr);
  8.     procedure HandleMySprite (me: SpritePtr);*/
  9.  
  10.  
  11. void InitMySprite()
  12. {
  13. int i;
  14.  
  15.     theSound = SATGetSound(128);
  16.     for (i=0; i<=5; i++)
  17.         faces[i] = GetFace(128+i);
  18. }
  19.  
  20. /* Important! Callback routines (Setup, Handle, Hit) must be declared "pascal"! */
  21.  
  22. pascal void SetupMySprite (me)
  23. SpritePtr me;
  24. {
  25.     me->mode = 0;
  26.     me->speed.h = 2;
  27. }
  28.  
  29. pascal void HandleMySprite (me)
  30. SpritePtr me;
  31. {
  32. /* Choose face */
  33.     me->mode = (me->mode + 1) % 6;
  34.     me->face = faces[me->mode];
  35.  
  36. /* Move */
  37.     me->position.h = me->position.h + me->speed.h;
  38.     if (offSizeV < 0) ;
  39.     if (me->position.h > offSizeH - 16)
  40.         {
  41.             me->speed.h = -2;
  42.             SATSoundPlay(theSound, 1, false);
  43.         };
  44.     if (me->position.h < -16)
  45.         {
  46.             me->speed.h = 2;
  47.             SATSoundPlay(theSound, 1, false);
  48.         };
  49. }
  50.